home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
DMTDEMOS
/
MOVEFILE.DEM
< prev
next >
Wrap
Text File
|
1994-07-02
|
596b
|
35 lines
program MoveFileSample;
uses crt, DMT;
var
FileName,
TargetPath : string;
begin
FileName := '';
TargetPath := '';
Color( 7, 0 );
clrscr;
write( 'Enter filename to move : ' );
readln( FileName );
write( 'Enter target directory : ' );
readln( TargetPath );
MoveFile( FileName, TargetPath ); { Call MoveFile procedure ]}
if ( ErrFlag ) then
begin
writeln( #7 );
writeln( ShowError( GetErrCode ) );
end
else
begin
writeln;
writeln( 'File successfully moved.' );
end;
GetEnter;
end.